home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Auge 4000 / Auge 4000 #64 (1992-08-13)(Amiga User Gruppe Einzugsgebiet 4000).zip / Auge 4000 #64 (1992-08-13)(Amiga User Gruppe Einzugsgebiet 4000).adf / TKEd / rexx / MakeNumber.tked < prev    next >
Text File  |  1992-06-12  |  599b  |  36 lines
  1. /* ARexx program number all the lines of a text */
  2.  
  3.  
  4. options results
  5.  
  6. address 'TKEd.1'        /* Name of TKEd's port */
  7.  
  8. SIGNAL ON BREAK_C
  9. LastLine            /* Get number of the last line in a text */
  10. x=result
  11.  
  12. BeginOfFile         /* Go to the top of the text */
  13.  
  14. GetLineNr           /* Get linenumber */
  15. y=result
  16.  
  17. do while y < x
  18.   BeginOfLine
  19.  
  20.   WriteString y     /* Write number */
  21.   WriteString ": "  /* Write ': '   */
  22.  
  23.   Cursor "DOWN"
  24.  
  25.   GetLineNr         /* Get linenumber */
  26.   y=result
  27.  
  28. end
  29.  
  30. BeginOfLine
  31.  
  32. WriteString y     /* Write number */
  33. WriteString ": "  /* Write ': '   */
  34.  
  35. BREAK_C:
  36.